home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / mar94 / ma_fig07.gif < prev    next >
Graphics Interchange Format  |  1996-07-10  |  26.9 KB  |  641x492  |  4-bit (5 colors)
   ocr: CUSTOMER-HEutton3spushbutton" method pushButton(uar eventinfo Event) var custreport Report CUSERPI keportrrintinro 9, r String enduar 5 Set: up and invoke. dialog box: srL1D.setlatlablename -WORK:cuStomer" ) srLib.setCurRecKeyField( Customer No" ) SrL1D.setcurRect Customer No ) srLib.opensortRangeDialog r ) ifr & "Ok" then. return endif 9 SrL1D-querystringo custRPI.name EWORK:CUSt10" CUStRPI-querystring 9 cuStRPI.orient PrintLandscape if not custReport.print CUStRPI ) then: nsg5topCError" Could not print CUST: report:") return endif endMethod Edit: Line: 1: Col: 1: